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Zo de nieuwe uitgave van de Quasar ligt weer voor U. 
Het was op 4 juni gezellig druk op de bijeenkomst in 
Utrecht, helaas was de tijd tussen het verschijnen van 
de vorige Quasar en de bijeenkomst erg kort, voortaan 
zullen wij trachten hier wat meer tijd tussen te laten 
zitten. 

Op de bijeenkomst zijn er diverse vragen op ons afge- 
vuurd, met name door beginnende QL-ers, deze gebruik- 
ers zijn zeer op zoek naar informatie en de vraag 
'leeft of er wat meer artikelen speciaal afgestemd op 
deze groep gepubliceerd kunnen worden. Nu zal een 
ieder zich zijn eerste ervaringen (en evt. blunders) 
nog wel herrineren zo dat het ons een goed idee lijkt 
dit eens op papier (of cartridge eigenlijk) te zetten 
en aan ons toe te zenden zodat wij er van mee kunnen 
genieten of in ieder geval iets van kunnen leren. 

Wij zijn op het ogenblik Succes van Digital Precision 
aan het testen, het verhaal van deze CPM Code genera¬ 
tor kunt u in het volgend nummer van de Quasar ver- 
wachten. 

Alle andere artikelen over het QL-gebeuren blijven na- 
tuurlijk van harte welkom. 

Uw inzendingen gaarne als Quill-doc of als ASCII-file 
op cartridge of 5 1/4 inch floppy. Ook een uitgeprinte 
versie bijleveren is voor ons erg handig. 


Met vriendelijke groet 
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De microfair, een Sinclair beurs die voornameli|k op de QL is 
gericht, in een oude hal, waarbij bijna alle hard en software 
producenten zijn vertegenwoordigd. 

Als Sinclair liefhebber kun je daar de hele dag je hart ophalen, 
met programmeurs en hardware ontwerpers praten, die Je net 
zo vriendelijk te woord staan... 


Wat was er te zien deze keer: 

Een ATARI ST die draaide op 
Qdos. Het zag er degelijk en voor- 
al erg echt (en dus eng) uit. Zelfs 
de kleuren zagen er origineel uit, 
Qram draaide er op, en dat is toch 
een programma dat Qdos behoor- 
lijk ondersteboven haald en be- 
hoorlijk huishoud in het geheu- 
gen, en multitasking draaid etc. 
etc. Het enige voor mij zichtbare 
was dat sommige toetsen in¬ 
compatible waren, wat bijvoor- 
beeld voor de THOR zonder alt- 
key toch een klein nadeel was 
m.n. compatibiliteit. Voordelen 
zijn: het beschikbaar zijn van een 
harddisk, 4 Megabyte geheugen, 
en als hardcopy is er voor de 
ATARI ook een Laserprinter ver- 
krijgbaar. Voor de ATARI gebruik- 
er is het voordeel van QDOS het 
eindelijk te kunnen multitasken 
(wat al erg lang voor de ATARI is 
beloofd) en een sterke basic, te- 
vens heb ik van horen zeggen dat 
de desktop publishing voor de QL 
veel verder is gevorderd dan die 
van de ATARI... 

Het nieuws op de SANDY stand 
was echter veel opzienbarender 
met 2 nieuwe interfaces opstapel 
staand: 

1] Een PC XT Interface, waarmee 
men op de PC, Qdos kan draaien 
met ms-dos als eenmalige job. 
Het geheel bevind zich op n print, 
waarop zich alle aansluitingen be- 
vinden, een grotere broer van de 
68008, plaats voor een extra rom, 
en doordat de print compleet 
volgepakt is met ic’s worden de 
printbanen op meerdere lagen 
van en naar de ic's geleid. Vol- 


gens de ontwerper die ik persoon- 
lijk mocht aanhoren ging het om 
een "6-layer print. De kaart neemt 
eenmaal ingeschakeld de 'macht' 
van de PC over en kan gebruik 
maken van de standaard randap- 
paratuur zoals drives, winches¬ 
ters, monitor etc. etc. De goed- 
kope klonen die op dit moment 
verkrijgbaar zijn voor cfnder de 
/2000,- met 20 Mb harde schijf en 
alle extras als muis e.d. erbij, 
maken de kaart interesanter dan 
dan een THOR - 20 met ms-dos 
(zoals nu c/pm voor de QL) als 
emulatie pakket. Voor de PC ei- 
genaren betekend het dat men 
toch kan multitasken (zoals men 
ons met OS/2 beloofd) op de 
oude PC, en de oude program- 
ma's kan behouden. 

Het prototype was op een enkel 
schoonheidsfoutje af, en werd op 
de stand in geuren en kleuren van 
commentaar voorzien. 

2] Het SANDY MEGA board met 
Harddisk interface. Deze kaart is 
SANDY'S antwoord op de trump- 
card van MIRACLE met meer ge¬ 
heugen, de mogelijkheid om extra 
expansions bij te steken (rom's, 
eprom programmers, DA/AD con¬ 
vertors etc.), en al de extras die 
we gewend zijn van het 'gewone' 
Super Q Board. De interface is 
door de nieuwe geheugen chips, 
zo compact dat hij net zo groot is 
als een ouderwetse disk interface! 
De geheugen chips brengt ons op 
de datum van verkrijgbaarheid 
van de kaarten, want de kaarten 
zelf worden al gemaakt, voorlopig 
wordt gegokt op de eerstvolgende 
microfair begin herfst. Men kan 


dan kiezen tussen een MEGA 
BOARD voor tegen de duizend 
piek, of met Harddisk 20,30 of 40 
Mb voor ongeveer tweeduizend 
piek, waarbij voor iedere 10 Mb 
meer ongeveer 40 pond extra 
moet worden neergelegd. De prij- 
zen erg globaal en hangen nog 
van de geheugen IC's en de 
koers af. Het geheugen kan word¬ 
en gedeeld in bijvoorbeeld 640k 
plus 512k ramdisk of in z'n geheel 
door ingebouwde software, de 
processor te laten 'denken' meer 
geheugen voor handen te heb- 
ben. Alle software voor de QL is 
net zo compatible als anders, op 
deze nieuwe kaart. Mijn hart is in 
ieder geval verloren, aan het laat- 
ste board. 

S.U.B. eindelijk ben ik ook er ach- 
ter gekomen waar al die groote 
advertenties in de QL world voor 
dienden. Het zijn 2 mensen die 
full time in de postorders zitten en 
tussen door QL'Iers met proble- 
men te woord staan, en vervol- 
gens iedere maand een blaadje 
van 40 pagina's A5 uitbrengen. 
Het blad zit tussen de commer- 
ciele QL world en onze ver- 
trouwde QUASAR in, en bestaat 
volledig uit vaste rubrieken. 
Volgende maand kunnen de basic 
extensions voor flashback worden 
verwacht, waarmee men verschil- 
lende kaartenbakken kan gaan 
koppelen en zelfs kaarten bakken 
aan bestaande of nieuw ge- 
maakte programma's kan koppe¬ 
len. Verder was er weinig nieuws 
van het software front, op een en- 
kele upgrade na. De volgende 
microfair is voor mij weer een 
must, en om het maar eens recht 
voor z'n raap te zeggen: be there 
or be square! 

Paul Moerman, 
tel: 010-4348803 
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Om nu eproms in de QL te plaatsen zijn een paar 
kleine wijzigingen nodig. Dit is noodzakelijk omdat 
bij ROM's de klant kan opgeven of hij de chip er£ 
able (pen 20) en output enable (pen 22) aktief hoog 
of aktief laag wil hebben. Bij EPROMs is dat geluk- 
kig gestandaardiseerd op aktief laag.Nu kunt U wel 
raden wat SINCLAIR heeft besteld ROMs met een 
output- en chip enable als aktief hoog. 


Het tweede punt is dat bij de 27128 
een poot (pen27) als PGM (program- 
meer pen) heeft en bij een ROM ver- 
sie kan die pen als extra chip-select 
gebruikt worden. 

Als U een ISSUE 5 board heeft (staat 
op de print in het wit afgedrukt) dan is 
de mogelijkheid om er EPROMs in te 
zetten al aanwezig. Het ombouwen 
kan op verschillende manieren ge- 
beuren .Nu beschrijf ik hier de make- 
lijkste oplossing: 


leggen naar een van de aansluitingen 
van JU2. 

- een draadje leggen van het eilandje 
naast de 74LS00 pen 13 naar de 
rechter aansluiting van link JU4. 


Voor mensen die een ISSUE 6 of 
nieuwer hebben is helaas de aansluit¬ 
ingen om er EPROMs in te plaatsen 
achterwegen gelaten dus zonder links 
JU1-JU6 en 1C 17. 


Daar is natuurlijk wat opgevonden al- 
leen zal er een handige plek gevon- 
den moeten worden voor een 
74LS00. Bijvoorbeeld over IC25 
heen. 

- van de 74LS00 alle pootjes uitbui- 
gen behalve pen 7 en pen 14 voor de 
voeding. 

- van de 27256 pen 22 omhoogbui- 
gen. 

- van de voet van de 27256 pen 22 
een draadje naar de 74LS00 pen 12. 

- van de 74LS00 pen 11 een draadje 
naar de 27256 pen 22. 

- van de 74LS00 pen 13 met 14 door- 
verbinden. 

(ROMOEH is geinverteerd en doorge- 
geven aan OE van de 27256) 

- van de 27128 pen 27,22 en 20 om- 
hoogbuigen. 

- van de 27128 pen 27 doorverbinden 
met pen 28. 

- van de voet van de 27128 pen 22 
een draadje naar de 74LS00 pen 1. 

- van de 74LS00 pen 3 een draadje 
naar de 27128 pen 22. 

- van de 27256 pen 20 een draadje 
naar de 74LS00 pen 2. 

- van de voet van de 27128 pen 27 
een draadje naar de 27128 pen 20. 


Als U alles goed aangesloten heeft 
dan is de QL nu veranderdt in een JS 
versie 

Michel Spanjer. 
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- alleen link JU2 plaatsen 

- van de 74LS00 pen 6 afknippen. 
-van de 74LS00 pen 2 omhoogbuigen 
en verbinden met pen 14 (+5V), en 
dan in de voet van IC17 plaatsen. Is 
deze voet niet geplaatst door Sinclair 
dan is het aan te raden deze voet te 
plaatsen. 

- links kan de 27256 geplaatst word¬ 
en. 

- van de 27128 pen 27 en pen 20 om¬ 
hoogbuigen. 

- van de 27128 pen 27 met pen 28 
doorverbinden. 

- van de 27128 pen 20 een draadje 
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Bij het maken van een administratief programma 
voor mijn broer, kwam ik voor het probleem te 
staan, dat er voor het uitprinten van de gewenste lij- 
sten (waarin een gedeelte onderstreept, vergroot 
en of vet gedrukt moest worden) 2 reeksen printer- 
control codes nodig waren. 

Een reeks voor de printer van mijn broer en de an- 
dere voor mijn printer. 


Ik had dus voor elke printer een 
aparte procedure gemaakt. Eigen- 
lijk had ik dus voor elke printer 
een ander programma. Dit werkte 
wel maar was wel omslacbtig. 
Toen kwam ik op het idee waar 
het PSION-pakket van de QL ook 
mee werkt. 

Met behulp van 'install_bas' moet 
men een eigen printer-code lijst 
aanmaken, die vervolgens wordt 
gebruikt wanneer men uit wil prin¬ 
ter Na een paar uur zoeken en 


vergelijken in het programma: in- 
stall_bas en de file: printer_dat, 
wist ik hoe deze laatste file is op- 
gebouwd. 

In het onderstaande programma 
wordt nu deze file gesplitst en de 
printer-code's in (alfa-)nummer- 
ieke variabelen gezet die al dan 
niet in PRINT statements kunnen 
worden gebruikt of kunnen word¬ 
en aangeroepen. 

Het is wel van "belang dat wan¬ 
neer bv. "erline off niet gebruikt 


worden, de procedure "join" die in 
diezelfde regel wordt aangeroe¬ 
pen te laten staan. Anders word¬ 
en de resterende printer-control 
code's in de verkeerde variabelen 
gezet worden met alle gevolgen 
van dien. 

Het programma is, dacht ik, vol- 
doende gedocumenteerd zodat 
het voor de hobbyist mogelijk is 
het programma te schrijven in an- 
dere talen zodat de prog ram ma's 
professioneler of niet makkelijker 
toegangkelijker voor andere 
printergebruikers. 


Veel succes 
Dick Nieuwensteeg 


100 REMark INITIALISATIE VAN VARIABELEN 
VOOR HET GEBRUIK VAN 
110 REMark PSION'S PRINTER_DAT IN 
SUPERBASIC 

120 REMark DICK NIEUWESTEEG 
130 REMark JUNI 1988 
135 : 

140 PRINTER_INIT 

150 PRINT #3;"PRINTER: ";NAME$; 

" GEINITIALISEERD" 

160 PRINT #3;UNDERON$;BOLDON$;"DEZE TEKST 
IS ONDERSTREEPT EN IN BOLD 
GESCHREVEN";BOLDOFF$;UNDEROFFS 
170 REMark EEN VOORBEELD HOE EEN FUNCTIE 
VAN TRANSLATE KAN WERKEN IS: 

180 REMark IF TEXT(X TO X)=TRANSLATE1$(1) 
THEN PRINT #3;TRANSLATE1$(2 TO) 

190 : 

200 DEFine PROCedure INIT_PRINTER 
210 OPEN #4,FLP1_PRINTER_DAT 
220 LET PRINTERS-"" 

230 REPeat LOOP1 

240 IF EOF(#4) THEN EXIT LOOP1 

250 PRINTER$=PRINTER$SINKEYS(#4) 

260 END REPeat LOOP1 
270 CLOSE #4 

280 NAME$=PRINTER$(6 TO 15) 

:REMark PRINTER NAME 


290 PORT=CODE(PRINTERS<16)) 

:REMark PORT=l : SERI 
300 :REMark PORT-2 : SER2 

310 :REMark PORT=0 : PARALLEL OR NON 

STANDARD SERIAL INTERFACE 
320 IF PORT=l OR PORT-2 
330 PARITY=CODE(PRINTERS(17)) 

:REMark 

0-NONE,1-SPACE,2=MARK,3-ODD, 4-EVEN 
340 BAUDRATE-CODE(PRINTERS 

(18))*256+CODE(P_ BAUD RATE 
350 BAUD BAUDRATE 

360 OPEN #3,"SER"&PORT 

370 ELSE 

380 DEV$=PRINTER$(18 TO 18+CODE 

(PRINTERS(17))) 

:REMark NAME OF PARALLEL OR 
NON-STANDARD SERIAL INTERFACE 
390 OPEN #3,DEVS 

400 END IF 

410 LPP-CODE(PRINTERS(35)) 

:REMark LINES / PAGE 
420 CPL=CODE(PRINTERS(36)) 

:REMark CHARACTERS / LINE 
430 CONTFORM-CODE(PRINTERS(37)) 

:REMark CONTININOUS FORMS l=YES,2=NO 
440 POS=42 
450 JOIN:EOL$=LINE$ 

:REMark END OF LINE CODE 
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460 JOIN:PRECODE$=LINE$ 

:REMark PREAMBLE CODE 
470 JOIN:POSTAMBLE$=LINE$ 

:REMark POSTAMBLE CODE 
480 JOIN:BOLDON$=LINE$ 

:REMark BOLD ON 
490 JOIN:BOLDOFF$=LINE$ 

:REMark BOLD OFF 
500 JOIN:UNDERON$=LINE$ 

:REMark UNDERLINE ON 
510 JOIN:UNDEROFF$=LINE$ 

:REMark UNDERLINE OFF 
520 JOIN:SUBSCRIPTON$=LINE$ 

:REMark SUBSCRIPT ON 
530 JOIN:SUBSCRIPTOFF$=LINE$ 

:REMark SUBSCRIPT OFF 
540 JOIN:SUPERSCRIPTON$=LINE$ 

:REMark SUPERSCRIPT ON 
550 JOIN:SUPERSCRIPTOFF$=LINE$ 
:REMark SUPERSCRIPT OFF 
560 JOIN:TRANSLATE1$=LINE$ 

:REMark TRANLATE1 
570 JOIn:TRANSLATE2$=LINE$ 

:REMark TRANSLATE2 
580 JOIN:TRANSLATE3$=LINE$ 

:REMark TRANSLATE3 
590 JOIN:TRANSLATE4 $=LINE$ 

:REMark TRANSLATE4 
600 JOIN:TRANSLATE5$=LINE$ 

:REMark TRANSLATES 


Hardware uitbreidingen 

De redaktie ontving een schrijven van Jan Peter Venema uit Veendam waarin hij te ken- 
nen gaf dat hij wat hardware projekten op wil gaan starten en deze in de Quasar te public- 
eren, nu wilde hij graag weten waar specifiek belangstelling voor is zodat hij zijn ontwik- 
kellingen voor een z'on breed mogelijk publiek kan maken. 

Indien u belangstelling heeft voor een hardware ontwikkeling dan gaarne uw reactie naar 
het redactieadres of rechtstreeks naar Jan Peter Venema 

Enige suggesties zouden kunnen zijn: 


- serigle interface 

- Parallele interface 

- AD & DA converter 

- Timer 

-MIDI 

- Floppydisk interface 

- 2e scherm voor QL 

- Harddiskinterface 

- keyboardinterface 

- EPROM programmer 

- bufferprint 

- RAM uitbreiding 

- digitizer 

- scanner 

- enz. 

- enz. 

Redactie Quasar 

Jan Peter Venema 

Gruttostraat 15 

Westereems 1 

3435 DJ Nieuwegein 

9642 KP Veendam 


610 JOIN:TRANSLATE6$=LINE$ 

:REMark TRANSLATE6 
620 JOIN:TRANSLATE7$=LINE$ 

:REMark TRANSLATE7 
630 JOIN:TRANSLATE8$=LINE$ 

:REMark TRANSLATES 
640 JOIN:TRANSLATE9$=LINE$ 

:REMark TRANSLATE9 
650 JOIN:TRANSLATE10$=LINE$ 

:REMark TRANSLATE10 
660 PRINTER$=" n :LINE$=" n 
670 END DEFine 

680 DEFine PROCedure JOIN 

690 REMark SAMENVOEGEN VAN PRINTER-CONTROL 
CODE'S 

700 LINE$= n " 

710 LENGTH=CODE(PRINTERS(POS)) 

720 IF LENGTH>0 THEN 
730 REMark GEEN PRINTER-CONTROL 

GEDEFINIEERD 

740 ELSE 

750 FOR J=1 TO LENGTH 

760 LINE$=LINE$&PRINTER(POS+J) 

770 END FOR J 

780 END IF 
790 POS=POS+LENGTH+l 
800 END DEFine 













De MG Rom is de laatste Rom voor de QL die door 
Sinclair is uitgebracht. De meeste QL gebruikers 
werken met de JM of JSrom. De MG Rom is eigen* 
lijk speciaal voor de Duitse markt aangepast voor 
hij op de Engelse markt zou gaan rouleren maar 
helaas van dit laatste is het nooit gekomen. Maar 
nu is het dan zover er is een Engelse MG Rom ge- 
naamd MGUK (MG United Kingdom). 


De oorspronkelijke Duitse versie is 
aangepast door Simon Goodwin en is 
een Engelse versie geworden, die 
uiteraard ook door ons gebruikt kan 
worden. 

De extra Basic extensions die hier in 
(t.o.v. JS) zijn: 


Rechp (Heeft iets met de com¬ 
mon heap te maken 
(read comm.heap ??)) 

Alchp (Heeft iets met de com¬ 

mon heap te maken 
(allocate comm.heap?) 

Dev_stat (???? ben ik helaas 

nog niet achter) 


We nemen eerst de 16k (27128) Ep- 
rom. 

Nodig is: 

- De 16k Eprom met de code erin 

- Een 1C type 74LS00 

- Een 28 pins 1C voet 

Soldeer op Eprom pin 14 een draadje 
naar 74LS00 pin 7 

Soldeer op Eprom pin 15 een draadje 
naar 74LS00 pin 8 

Soldeer op Eprom pin 21 een draadje 

naar 74LS00 pin 11 

Soldeer op Eprom pin 16 een draadje 

naar Eprom pin 23 

Soldeer op 74LS00 pin 9 een draadje 

in 1C voet pin 21 

Soldeer op 74LS00 pin 10 en draadje 
in 1C voet pin 23 


Tron (Trace on) 

Troff (Trace off) 

Trace_speed (Snelheid van Tracen) 
(0=snelst; 
32767»traagst) 

(Verandert het kanaal 
waarnaarde informatie 
moet worden geprint) 

(Geeft een directory in 
3 kolommen) 

(vb:Tdir flpl J 

filel file2 file3 
textl text2 text3 
etc. etc. etc. 

(Kopieert een stuk van 
het geheugen naar een 
ander) 

(vb:Move_mem 
131072,147456,16384) 


De MG Rom heeft ook een extra ka- 
rakter set en wel de Griekse karakter 
set, door de ALT en CAPS LOCK 
toets in te drukken kan je tussen de 2 
karakter sets wisselen. 

Ook is het mogelijk cartridges te for- 
materen met het aantal sectoren dat 
je zelf wilt. 

En nog een aantal extra's. 

Het probleem is om de MG Rom code 
(die reeds in mijn bezit is) in Rom te 
krijgen, nu dit is niet mogelijk maar 
het is wel mogelijk om de code in Ep¬ 
rom te blowen. 

Nog een probleem is dat een Eprom 
niet rechttoe rechtaan in de plaats 
van de Roms geplaatst kunnen word¬ 
en. 

Ook hier is een oplossing voor. 

Ten eerste zijn er twee Rom een 16k 
(9128C) en een 32k (9256C). 


Buig van de Eprom pin 21 en 23 om 
zodat deze niet in 

de 1C voet komen en stop dan de Ep¬ 
rom in de 1C voet. 

Plaats dit geheel op de plek van de 
16k (9128C) Rom. 

( ZIE BIJGAAND SCHEMA ) 

Nu de 23k (27256) Eprom. 

Nodig: 

- De 32k Eprom met de code erin. 

- Een 1C type 74LS00 

- Een 28 pins 1C voet 

Soldeer op Eprom pin 14 een draadje 
naar 74LS00 pin 7 

Soldeer op Eprom pin 15 een draadje 
naar 74LS00 pin 8 

Soldeer op 74LS00 pin 8 een draadje 
naar 74LS00 pin 9 

Soldeer op 74LS00 pin 10 en draadje 
in 1C voet pin 21 


Trace dev 


Tdir 


Movejmem 


Do_reset (Reset de computer 
zonder de reset knop 
te gebruiken,dus een 
reset vanuit de basic) 

Free_mem (Geeft aan hoeveel 

vrije geheugen er nog 
is)(vb:Print free_mem) 


Dus hebben we ook twee Eproms no¬ 
dig en wel een 16k (27128) en een 
32k (27256). 

De 32k Rom is de "als je de QL recht 
voor je hebt met de expansiebus links 
M linkse Rom en de 16k Rom zit 
rechts van de 32k Rom. 


Buig van de Eprom pin 21 om zodat 
deze niet in de 1C 

voet komt en stop dan de Eprom in 
de 1C voet. 

Plaats dit geheel op de plek van de 
32k (9256C) Rom. 

(ZIE SCHEMA ) 
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En klaar zijn we zonder te solderen 
aan de QL print. 

Dit verhaal geldt voor alle issu's met 
uitzondering van de QL's waarin al 
Eproms in plaats van Roms zitten, 
deze kunnen direct de Eproms ver- 
wisselen. 

Wat gaat het ongeveer kosten: 

- 2 Eproms F 40,00 

- 2 1C voet 28p F 5,00 

- 2 1C 74LS00 F 2,00 


Totaal F 47,00 

De MGUK Rom code is bij mij ver- 
krijgbaar en kost niets op een retour 
postzegel na.(stuur wel een floppy of 
cartridge mee) 


Fred van der Neut 
Postbus 2072 

2930 AB Krimpen aan de Lek 
Tel. 01807-10553 
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Wat een deblokkeur is zul je in geen woordenboek 
aantreffen.lk bedoel ermee degene die blokkades 
wegruimt en dan met name de beveiligingsblok- 
kades die je in bepaalde software aantreft. 

Men kan als softwarekoper begrip hebben voor het 
streven van softwareleveranciers, om (illegaal) co- 
pieren onmogelijk te maken. Maar ik word razend 
als ik met programmatuur korrHe zitten.waarvoor ik 
normaal heb betaald, maar die in het ongerede is 
geraakt zonder dat ik een veiligheidscopie heb kun- 
nen maken en bewaren. 


Moeten de goeden met de kvyaden lij- 
den? Neen.ik vind dat we ons met ei¬ 
gen kunnen mogen verweren tegen 
de niet geringe.soms artistieke vin- 
dingrijkheid van de software makers. 
Het spreekt vanzeif dat de grenzen 
van het fatsoen in acht genomen 
moeten worden: wij willen de leveran- 
ciers niet benadelen, alieen tegen- 
gaan dat zij ons benadelen. 

Wel,zo zet je je dan vol goede moed 
aan de taak,om een groot en ingewik- 
kel programma in machinecode zoda- 
nig te ontrafelen dat blokkades kun¬ 
nen worden gelocaliseerd en op- 
geheven. In mijn geval was het PSI- 
ON-Chess programma het eerste 
werkstuk dat ik onder handen nam. 

Ik dacht wel wat van m.c.-program- 
meren te weten, maar het karwei viel 
knap tegen. Want je duikt in een pro¬ 
gramma dat de makers niet voor 
vreemde ogen bestemd hebben en 
dat in verband daarmee nogal wat 
vrijheden bevat in de structuren. Ik 
kwam dingen tegen die ik mijn stu- 
denten vroeger streng verbood, zoals 

* JSR- en BSR- instructies, waarbij 
geen terugkeer naar de opvol- 
gende instructie plaats heeft, 
doordat b.v. onderweg de stack- 
pointer is veranderd. 

* Geneste JSR- en BSR- aanroe- 
pen, waardoor ook de RTS- in¬ 
structies ondoorzichtig worden. 

* Niet-conditionele JMP's en 
BRA's ; deze verstoren het over- 


zicht op hinderlijke wijze. Ook 
conditioned sprongen kunnen 
onoverzichtelijk zijn, n.l. als het 
sprongdoel niet logisch in de 
structuur is opgenomen. Erger is 
het nog als wordt gesprongen.al 
dan niet conditioneel, naar een 
JSR,BSR of RTS. 

Dit soort structuurzonden, die alle 
best vermijdbaar zijn.sluipen binnen 
in een programma als het in de ont- 
wikkelingsfase herhaaldelijk wordt ve¬ 
randerd en verbeterd (wat de working 
betreft). Ik zat daardoor voor een 
enorm bord spaghetti. 

De zaak werd nog erger door een 
aantal op zich wel correcte.maar bij 
de ontrafeling niet meteen prettige 
details, zoals vertragingslussen, het 
be- of overschrijven door het pro¬ 
gramma van delen van zichzelf en het 
feit dat flinke stukken Q-DOS gebruikt 
worden. 

Wel is dat Q-DOS er uiteraard om ge¬ 
bruikt te worden, maar bij de explora- 
tie kan je uiteraard in die gedeelten 
geen breekpunten plaatsen en het is 
erg lastig vast te stellen waar het pro¬ 
gramma Q-DOS weer verlaat. 

Ken je eenmaal de weg in het pro¬ 
gramma, dan vervallen veel van deze 
moeilijkheden (ze telden niet voor de 
schrijvers), maar het kost tijd.veel tijd 
en geduld, om zover te komen. Af- 
gezien nog van de praktische resulta- 
ten die wenken aan de horizon is er 
een beloning voor de zwoeger:je leert 
ervan en elke volgende klus gaat be- 
ter. 


Voor zo'n karwei is een goed monitor- 
programma onontbeerlijk. Ik gebruikte 
MONQL v2.2 van HISOFT, en dit 
bleek een fijn hulpmiddel met m.i. 
maar twee (kleine) bezwaren. Het 
eerste is dat bij activeren van 
MONQL een inleidend scherm een 
voile 15 seconden blijft staan en dat 
is (te) lang wachten als je verder wilt. 
Het tweede bezwaar is dat terugkeer 
naar Basic niet meer lukt nadat het 
programma op een breakpoint is ge- 
stopt. Je moet dan resetten en op- 
nieuw beginnen, wat frustrerend is. 
Als Andy Pennell me niet voor is,doe 
ik daar misschien nog wel eens iets 
aan (hoewel ik ook rekening houd 
met de mogelijkheid dat mijn 256K 
niet voldoende is om MONQL en 
CHESSC naast elkaar te laterv func- 
tioneren). 

De methodiek (althans voor mij) is 
niet strak te omschrijvemmeer losse 
polswerk, improviserend. Ergens be¬ 
ginnen, stukje disassembly op het 
scherm en breakpoint plaatsen: wat 
doet hij? Conclusie trekken, nieuw 
breakpoint plaatsen: wat doet hij nu, 
waar komt hij langs? En dit maar her- 
halen, af en toe ondersteund met het 
uitprinten van een stuk disassembly. 
Soms na halt in breakpoint single¬ 
steppe nd verder. 

Het zoeken wordt steeds gerichter, 
het beeld duidelijker. Het blijkt en blijft 
echter zeer complex verweven en op 
vele plaatsen slecht gestructureerd. 
Op een bepaald moment ga je dan 
ook verwachte instructies localiseren 
met de zoekfaciliteit van de monitor. 
En je ontdekt terloops, dat single¬ 
stepping niet altijd tot het goede pad 
leidt, doordat de timing ergens afwijkt. 

Ik was met dit alles een eind op weg 
toen ik het verhaal las van Ed Ver- 
meulen in Quasar 32. Het is natuurlijk 
fijn te merken dat een ander met het- 
zelfde bezig is, misschien hoef ik niet 
verder, dus: meteen de program- 
ma'tjes van Ed geprobeerd. Helaas, 
het werkt (bij mij) niet. Dus maar verd¬ 
er ploeteren,berichtje in databank, 
rectificatie van Ed in Quasar, weer 
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proberen, geen resultaat. 

Dus maar op eigen kracht verder, tot 
het zoete einde. Want uiteindelijk wist 
ik niet alieen waar de protectietests 
zaten, ik had ze ook uitgeschakeld, 
EN HET WERKTE. Terloops merkte 
ik nog even, dat met MONQL en 
CHESS beide in het geheugen het 
runnen van CHESS niet foutloos 
lukte: ze zitten elkaar in de weg. Het 
is dus ook niet zo vreemd te verond- 
er- stellen (zie een paar alinea's te- 
rug), dat MONQL wordt gehinderd 
door het vrij grote CHESSC. 

Bij het voorafgaande ontbreekt nu 
nog de gedetailleerde informatie over 
de uitgevoerde programma- 
aanpassing. ik heb niet gekozen voor 
publicatie van een programma in ma- 
chinecode (al dan niet met hex- load¬ 
er),dat de aanpassing aanbrengt, als 
het ware in den biinde. Het werk 
waarvan dit verhaal een uitvloeisel is, 
blijkt zo fascinerend, dat het zonde 
zou zijn het af te siuiten met een re- 
cept: daar leert niemand wat van. Te- 
gen Ed Vermeulen zeg ik in dit ver- 
band, dat hij mij geholpen heeft met 
de aanduiding omtrent de aard van 
de uit te schakelen controles; ik heb 
echter helaas niet kunnen ontdekken, 
hoe zijn recept het gewenste resultaat 
zou kunnen bewerkstelligen. 

Het uitschakelen van controles kan in 
beginsel zowel gebeuren door er 
overheen te springen (soms met JMP 
of BRA,soms met vervanging van be- 
staande instructies door 4E71, zijnde 
NOP), als ook door ervoor te zorgen 
dat de test altijd goed uitvalt. Laatst- 
genoemde aanpak heeft het voordeel 
ook bruikbaar te zijn in minder over- 
zichtelijke situaties: men loopt minder 
kans per ongeluk ook nodige neven- 
werkingen uit te schakelen. 

Van al deze mogelijkheden vindt U in 
het onderstaande tenminste een toe¬ 
passing. Ik spreek verder af, dat ik 
adressen hexadecimaal aanduid als 
offset t.o.v. het startadres van het in 
het geheugen geladen programma 
CHESSC. 

Door de wijze van laden was dat star¬ 
tadres in mijn geval steeds hex. 
50000. En de vervanging doe ik met 
een heel simpel programma in Basic, 
met behulp van poke- en peekin- 
structies. Dat programma geef ik aan 
het slot van dit verhaal, onder de 
naam CHAPRO. 


Op 480E e.v. staat 4EBAFD70, zijnde 
JSR 4580.En die subroutine leidt,na 
wat voorbereidende instructies, naar 
de vectored utility 12A, of wel 
MD.SECTR : read a sectorheader. 
Het programma duikt dus in QDOS; 
het komt weer te voorschijn in de te- 
rugkeeradressen 3912,3914 en 3916. 

Hier gaat het programma verder bij 
respectievelijk "bad medium","bad 
sector header", en "OK". Verder 
merken we op, dat de leesbuffer, 
waarin de sectorheader wordt ge- 
plaatst, begint op 3552, een adres 
waarheen wordt verwezen door de in- 
houd van het adres waarheen register 
Al wijst. Pikant is dat met deze lees¬ 
buffer een stukje programma wordt 
overschreven, dat op dat moment niet 
meer nodig is : men kan dus nooit 
(ook niet tijdens het exploratiewerk) 
het programma herstarten na de lees- 
sequence gehad te hebben, tenzij 
men reset en herlaadt. 

In de leesbuffer,die 14 bytes lang is, 
komt op de 13de en 14ae plaats, dus 
op de adressen 355E en 355F, het 
z.g. randomnummer van de gelezen 
cartridge te staan.een soort betrekke- 
lijk onzichtbaar kenteken daarvan. Op 
de plaatsen 3, t.e.m. 12 staat de 
naam van de gelezen cartridge. Het 
blijkt nu,dat het programm verderop 
het gelezen randomnummer vol- 
gens een bepaald recept (negate, 
AND met 03, ROR 3 plaatsen) om- 
vormt en dan nagaat (op 4A42), of 
het resultaat hetzelfde is als een 
waarde, die het programma zelf mee- 
draagt op de adressen 1D22 en 
1D23. Lijkt deze beschrijving al be- 
hoorlijk slinks, het is niet het complete 
rookgordijn. Want eerst (op 4A3E) 
wordt een nietszeggend adres (4B35) 
geladen in A2. In de CMP instructie 
op 4A42 wordt dan met offset -2E13 
het echte adres 1D22 berekend waar 
het controlegetal in het programma 
staat. Dat wordt dan vergeleken met 
(moet gelijk zijn aan ) de inhoud van 
D2. In dat register is even eerder de 
inhoud van A28C overgeschreven, en 
die inhoud is berekend (als boven 
omschreven) uit de twee random- 
bytes van de leesbuffer.Kan het 
kronkeliger? Ik geef dit hier zo uitvoe- 
rig weer om duidelijk te maken op 
welke wijze de softwareschrijvers hun 
werk ondoorzichtig trachten te mak¬ 
en. Daartoe behoort ook,dat dit hele 
inleidende gebeuren met wilde spron- 
gen kunstmatig is verdeeld over een 


gebied tot 20 Kbytes na het program- 
mabegin. 

Om dit gehele doolhof te omzeilen 
gaan we op 4A2C niet de inhoud van 
A28C maar van 1D22 overschrijven in 
register D2. In A3 staat dan 8600 en 
met offset 9722 wijst dat naar 1D22. 

Dus: 

Wijziging 1 

Op 4A2C (.L) siaat 342B1C8C 
Dit wordt 342B9722 . 

Zoals gezegd, widen we de hele lees- 
operatie overslaan. We widen daartoe 
springen van 480E naar 3922, maar 
omdat we nog wat anders moeten in- 
voegen springen we naar 391 A. De 8 
bytes van 391A t.e.m.3921 vullen we 
bij wijziging 3 weer op. 

Nu dus: 

Wijziging 2 

Op 480E (.L) staat 4EBAFD70 
Dit wordt 6000F10A. 

De tweede test vinden we op 3650. 
Daar staat: 3650 B27AFF02 
CMP.W $00003554(PC),D1 
Op 3554 (.W,dus met 3555) staan in 
de leesbuffer de eerste twee letters 
van de gelezen naam. Als het goed 
ging waren dat de C en de H, met als 
ASCII codes 6368. En vlak tevoren, 
op 3648, wordt #$6368 geladen in 
D1. 

We laten dit gehele mechanisme nu 
eens intact (over efficients praten we 
even niet, maar U zult het verschil 
niet merken) en gaan de vereiste ge- 
tallen 63 en 68 gewoon schrijven op 
de betreffende plaatsen van de overi- 
gens ongebruikte leesbuffer. Voor de 
hiertoe dienende instructies gebruik- 
en we de bij wijziging 2 vrijgehouden 
8 bytes. 

Dus: 

Wijziging 3 

(a) Op 391A (.L) staat 548F205F. 

Dit wordt 4BFAFC38 LEA #$3554,A5 

(b) Op 391E (.L) staat 70024E42. 

Dit wordt 3ABC6368, ofwel 

MOVE.W #$6368,(A5) 

Tenslotte moet nog wat overbodig en 
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dus hinderlijk geworden schermtekst 
en oen aanslag van <SP> worden 
weggewerkt. We doen dat door van 
4800 naar 480A te springen, door de 
instructies op 1F72 en 1F7C uit te ve- 
gen (d.w.z. vervangen door 
4E714E71 .NOPNOP) en door van 
1F86 naar 23C6 te springen. 

Dus: 

Wiiziging 4 

(a) Op 4800 (.W) staat 4EBA 
Dit wordt 6008 BRA.S 480A 

(b) Op 1F72 (.L) staat 61000418 
Dit wordt 4E714E71 NOPNOP 

(c) Op 1F7C (.L) staat 6100040E 
Dit wordt 4E714E71 NOPNOP 

(d) Op 1F86 (.L) staat 60000404 
Dit wordt 6000043E BRA 23C6 


NASCHRIFT 

Ik nodig U uit, om de hier aangege- 
ven wijzigingen aan te brengen met 
behulp van mijn programma CHA- 
PRO.U begint daartoe met Irun 
xxxx_CHAPRO en daarbinnen voIgt 
U de schermaanwijzingen. Het te be- 
werken programma is CHESSC van 
de originele cartridge, met een lengte 
van 64K of te wel 65536 bytes. Save 
het resultaat onder een andere naam 
op een andere cartridge, en pas de 
bootfiles zo nodig aan. De omzetting 
naar disk gebeurt eveneens in de 
bootfiles, dus in Basic, en levert geen 
problemen. 

U vindt het programma CHAPRO of 
als listing hierbij of in de biblio- 


theek,dat moet de redactie uitmaken. 
Ik heb ook een gecompileerde versie 
SCCHAPRO_EXE aangeboden voor 
plaatsing in de bibliotheek. 

Verder ga ik nog trachten,een BREAK 
zonder RESET te realiseren in 
CHESSC. Dat dat niet mee zal vallen 
is me al wel duidelijk geworden; het 
duurt dus vast nog wel even voordat 
ik daarover zal kunnen berichten. En 
voor degenen die mij met vragen, 
mededelingen of ervaringen widen 
verblijden:mijn adres is 
Pansierstraat 44, 

2584EK Scheveningen; 
telefoon 070-556586. 

Veel genoegen! 

Pirn van Leening 


100 REMark ******************************************************************** 
110 REMark ************************** program CHAPRO *************************** 
120 REMark ***** voor het aanbrengen van veranderingen in m.c. programma 1 s ***** 
130 REMark ******** Copyright 1988 W.P.van Leening Scheveningen Holland ******** 
140 REMark ********************************************************************* 
150 DIM devfi$(16),ra$(4),sa$(8),keus$(8),ad$(8),nc$(8),in$(l) 

160 DIM lpd$(8),desfi$(16),yn$(1),x$(8) 

170 MODE 4:WINDOW 512,256,0,0:CLS 

180 OPEN #8,con_176x204a0x52:OPEN #7,con_336x204al77x52 
190 OPEN #6,con_168xl96a4x56 

200 PAPER #6,2:PAPER #7,2:INK #6,7:INK #7,0:BORDER #8,4,0 

210 AT 0,4:CSIZE 2,1:PRINT "PROGRAM CHAPRO ***** change MC program.":CSIZE 0,0 
220 AT 2,6:CSIZE 0,1 

230 INPUT "Which program to be changed (dev_file,ENTER if in memory) ? ";devfi$; 
240 CSIZE 0,0 

250 AT 4,6:PRINT "Adresses relative (r) or absolute (a) ? ";:INPUT ra$ 

260 sa$="00000":n=4:nb=0:np=2 

270 CSIZE 0,0:AT #7,0,1:INPUT #7,"Length of program (bytes,dec) : ";lp 
280 IF devfi$="" 

290 AT #7,1,1:INPUT #7,"Starting address (HEX) : ";sa$ 

300 ELSE 

310 base=RESPR(lp):sa$=hexa$(base,5):LBYTES devfi$,base 
320 END IF 

330 PAUSE 100:CLS #7 

340 AT #6,0,2:PRINT #6,"Start addr. (HEX): ";sa$ 

350 AT #6,1,2:PRINT #6,"Length of program ";lp 
360 AT #6,3,2:PRINT #6,"1. New address .B" 

370 AT #6,4,2:PRINT #6,"2. New address .W" 

380 AT #6,5,2:PRINT #6,"3. New address .L" 

390 AT #6,6,2:PRINT #6,"4. Next address .B" 

400 AT #6,7,2:PRINT #6,"5. Next adress .W" 

410 AT #6,8,2:PRINT #6,"6. Next adress .L" 

420 AT #6,10,2:PRINT #6,"7. Save results " 

430 AT #6,11,2:PRINT #6,"8. QUIT,back to basic. " 

440 AT #6,14,2:PRINT #6,"MAKE YOUR CHOICE! " 

450 keus$=INKEY$(-1) 

460 IF CODE(keus$)<48 OR CODE(keus$)>56:GO TO 450:ELSE :keus=keus$:CLS #6 
470 IF keus=8:GO TO 720 
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Om dat CST een nieuwe Controller uitgebracht 
heeft met meerdere toolkit 2 comando's en een 
RAM disk driver, en dit niet zondermeer werkt op 
een oude versie CST controller en het wel eens 
probleem oplevert met het aansturen van een 3 1/ 
2" disc drives, heb ik een modificatie gemaakt op 
mijn controller om toch de nieuwe versie CST Ep- 
rom te kunnen gebruiken. 


Voor de modificatie heeft men een 
74LS133 (LSI 33) nodig een stukje 
wire wrapdraad een weerstand van 
470 Ohm en de nieuwe versie CST 
Eprom. 

Van de 74LS133 (LSI 33) buigt men 
alle pooten omhoog op pen 8 en pen 
16 na. De LSI 33 soldeert men boven 
de 74LS266 (LS266) pen 8 van 
LSI 33 aan pen 7 van LS266 en pen 
16 van LSI33 aan pen 14 van 
LS266.(pennetjes iets naar elkaar 


buigen). 

Pennen 4 t/m 7 van LS 133 aan el¬ 
kaar doorverbinden. 

De pennen 1 t/m 4 en 10 t/m 15 van 
de LS 133 aan de adreslijnen A4 t/m 
A13 solderen (zie QL USER GUIDE 
voor de adreslijnen). 

Het baantje dat aan onderkant van de 
controller naar pi en p2 van LS03 
loopt door snijden. Pen 9 van LSI 33 
verbinden aan pen 1 en pen 2 van 
LS03. 


Nu moet er een baantje wat aan de 
bovenkant van de controller van 
adreslijn A13, a14 van de expantie 
poort, naar een eilandje loopt door 
snijden. Verbind het eilandje met pen 
3 van de LS03. Soldeer de weer¬ 
stand van pen 3 naar pen 14 van de 
LS03. 

Aan de onder kant van de controller 
moet U nu een draadje leggen van 
pen 26 van de Eprom naar Adreslijn 
A13 solderen. 

Als U nu alles goed gedaan heeft dan 
moet de controller weer werken. 


Succes 

Michel Spanjer 
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A.W.BOOT. VALKENSWAARD 23-06-88 

DIJKSTR. 105. 

5554 PR VALKENSWAARD. 

04902_15268. 

L.S. 


WELKE QL-ER WERKTE ER MET JM-JS EN T.TEBBY SUPERQBOARD 512 EN MUIS? 
OF MET QL EN QRAM. 


WIE WIL VOOR BEGINNERS IN QUASAR UITLEGGEN HOE JE B.V. EEN PROGRAMMA 
KUNT "BOOTMAKEen" ZODAT HET OPSTART MET RESET +F1. 

WIE GEEFT EEN UITGEWERKT VOORBEELD HOE JE MET QRAM 4 PROGRAMMAS 
KUNT MULTITASKEN. 

WIE GEEFT EEN UITGEWERKT VOORBEELD HOE JE EEN PROGRAMMA KUNT HOT- 
MAKEen ZODAT HET OPSTART MET AANKLIKKEN VAN DE MUIS . 

WIE WEET WELKE PROGRAMMAS ONDER QRAM WILLEN WERKEN .MOGEN DIT 
PROGRAMMAS ZIJN MET EEN BOOT ERVOOR?.WELKE VOORWAARDEN ZIJN ER?. 

DE VOORBEELDEN MOETEN WEL ZEER UITGEBREID WORDEN VOORGEDAAN AND¬ 
ERS SNAP IK HET NIET. 


WIL DE REDACTIE MISSCHIEN HIEROVER ENKELE ARTIKELEN SCHRIJVEN VOOR 
ALLE BEGINNERS .DE QRAM BOEKJES HELPEN ME NIET GENOEGI. 

WELKE QLer MET SUPERQBOARD 512 + MOUSE WIL MlJ EENS OP WEG 
HELPEN ?. 


VEEL HULP ZOU WELKOM ZIJN !. 


BIJ VOORBAAT DANK, 

JOS BOOT 
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Dit programma bevat een aantal procedures, waar- 
van de belangrijkste zijn: INV, PROD en DRUKAF. 
De rest van de procedures wordt aangeroepen door 
de procedure INV. 

De procedure INV bepaalt de inverse van een ma¬ 
trix door hem "schoon te vegen". 


De procedure wordt aangroepen met: 
"INV matrixl f matrix2", waarbij matrixl 
en matrix2 matrices met dezelfde di- 
mensie moeten zijn. De procedure zet 
de inverse van matrixl in matrix2. Als 
de dimensies van matrixl en matrix2 
niet gelijk zijn geeft het programma 
een melding in window 0, maar on- 
derbreekt het programma niet. Er 
wordt dan natuurlijk geen inverse uit- 
gerekent. De aanroep INV matrixl, 
matrixl is dus ook korrekt en heeft als 
resultaat dat na de aanroep matrixl 
de inverse van zichzelf is geworden. 


De procedure PROD bepaalt het pro- 
dukt van twee matrices, en wel ma¬ 
trixl en matrix2 en zet het produkt in 
matrix3; hij wordt aangeroepen met: 
"PROD matrixl, matrix2, matrix3", 
waarbij ook weer de dimensies ge- 
controleerd worden. 

Als bijv. matrixl een NxM matrix is 
dan moet matrix2 een MxfCmatrix zijn 
en matrix 3 een NxK, waarbij n,m en 
k een willekeurige getallen zijn. 

Dan tenslotte de procedure DRUKAF, 
deze wordt als voIgt aangeroe- 
pen:"DRUKAF matrix", deze proce¬ 


dure drukt dan de matrix at in kanaal 
#3, en de procedure werkt alleen fat- 
soenlijk bij kleine matrices als een rij 
op het scherm past. 

Bovendien maakt deze procedure ge- 
bruik van het TOOLKIT II commando 
print_using en de procedure zal dus 
aangepast moeten worden indien U 
geen toolkit heeft. Aan het eind van 
het programma staan wat voorbeel- 
den die U kunt bekijken door het pro¬ 
gramma te runnen. Het is natuurlijk 
ook mogelijk om deze procedures 
buiten een programma te grbruiken 
als een soort basic uitbreiding. Om 
uw programma te checken: de in¬ 
verse van de inverse is gelijk aan het 
orgineel en het produkt van een ma¬ 
trix met z'n inverse is gelijk aan de 
eenheidsmatrix. 

Roelof Crevecoeur. 


1000 REMark - 

1005 REMark Enkele procedures om matrices te inverteren en hun produkt 
1010 REMark uit te rekenen. 

1015 REMark Geprogrammeerd door: R. M. Crevecoeur 
1020 REMark Laatste wijziging : 21 mei 1988 

1025 REMark - 


1030 REMark Error procedure. 

1035 REMark - 

1040 WHEN ERRor 

IF ERLIN THEN 

OPEN #8/scr_292x52al06xl00 
BORDER #8,1,7 
CLS #8 

PRINT #8,"Error:Fatale error, programma wordt onderbroken." 


1045 

1050 

1055 

1060 

1065 

1070 

1075 

1080 

1085 

1090 

1095 

1100 

1105 

1110 

1115 

1120 


PRINT 
PRINT 
PRINT 
PRINT 
CLOSE 
STOP 

ELSE REPORT 
END IF 
END WHEN 

REMark - 

REMark 
1125 REMark 
1130 REMark - 


# 8 ," 

# 8 ," 

# 8 ," 

# 8 ," 

#8 


Check de onafhankelijkheid van de matrix." 
Fout is opgetreden in regnr:";ERLIN 
QDOS error nummer:";ERNUM 
QDOS omschrijving:REPORT #8 


#0 
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1135 REMark Procedure die de inverse van "matrixl" uitrekent, en deze 
1140 REMark weer mee terug geeft in "matrix2 n . 

1145 REMark - 

1150 DEFine PROCedure INV(matrixl,inverse) 

1155 LOCal matrix2(DIMN(matrixl, 1),2*DIMN(matrixl,2)+1) 

1160 IF (DIMN(matrixl,1)=DIMN(inverse, 1) AND 

DIMN(matrixl,2)=DIMN(inverse,2)) THEN 
1165 ReDefineMatrix2 matrixl,matrix2 

1170 FOR teller2=0 TO DIMN(matrix2,1) 

117 5 MaakHoofdDiagonaall matrix2,teller2 

1180 FOR tellerl=0 TO DIMN(matrix2,1) 

1185 MaakKolomO matrix2, tellerl,teller2 

1190 END FOR tellerl 

1195 END FOR teller2 

1200 ReDefineMatrixl inverse,matrix2 

1205 ELSE 

1210 PRINT #0,"Error:De dimensies van de inverse zijn niet goed." 

1215 END IF 

1220 END DEFine 

1225 REMark - 

1230 REMark 
1235 REMark 

1240 REMark - 

1245 REMark Deze procedure maakt het element in de kolom "kolom", dat op 
1250 REMark de hoofddiagonaal ligt 1, door de rij te delen door het 
1255 REMark element op de hoofddiagonaal. 

1260 REMark - 

1265 DEFine PROCedure MaakHoofdDiagonaall(matrix, rij) 

1270 LOCal teller,n,factor 

1275 LET n=0 

1280 REPeat element_ongelijk_nul 

1285 IF matrix(rij,rij+n)<>0 THEN 

1290 EXIT element_ongelijk_nul 

1295 ELSE 

1300 LET n=n+l 

1305 END IF 

1310 END REPeat element_ongelijk_nul 

1315 IF n<>0 THEN 

1320 VeegRij matrix, rij,rij+n, 1 

1325 END IF 

1330 LET factor=matrix<rij,rij) 

1335 FOR teller=0 TO 2*DIMN(matrix,1)+1 

1340 matrix(rij,teller)=matrix(rij,teller)/factor 

1345 END FOR teller 

1350 END DEFine DeelRij 

1355 REMark - 

1360 REMark 
1365 REMark 

1370 REMark-- 

1375 REMark Deze procedure maakt een element in de kolom "kolom" nul, als 
1380 REMark dit niet op de hoofd diagonaal, ligt. 

1385 REMark - 

1390 DEFine PROCedure MaakKolomO(matrix,rij,kolom) 

1395 LOCal factor 

1400 IF rijokolom THEN 

1405 LET factor=matrix(rij,kolom) 

1410 VeegRij matrix,rij,kolom,factor 

1415 END IF 

1420 END DEFine MaakKolomO 

1425 REMark - 
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1430 REMark 
1435 REMark 

1440 REMark - 

1445 REMark Deze procedure trekt "factor"*rij2 van rijl af in "matrix". 

1450 REMark - 

1455 DEFine PROCedure VeegRij(matrix,rijl/rij2,factor) 

1460 LOCal teller 

1465 FOR teller-0 TO 2*DIMN(matrix,1)+1 

1470 LET matrix(rijl,teller)=matrix(rijl,teller)- 

matrix(rij2,teller)*factor 

1475 END FOR teller 

1480 END DEFine VeegRij 

1485 REMark - 

1490 REMark 
1495 REMark 

1500 REMark--- 

1505 REMark Deze procedure plakt de eenheids matrix aan "matrix" en zet de 
1510 REMark waarden vervolgen in "array". 

1515 REMark - 

1520 DEFine PROCedure ReDefineMatrix2(matl,mat2) 

1525 LOCal tellerl,teller2 

1530 FOR tellerl=0 TO DIMN(mat2,l) 

1535 FOR teller2=0 TO DIMN(mat2,l) 

1540 LET mat2(tellerl,teller2)^mafl(tellerl,teller2) 

1545 IF tellerl=teller2 THEN 

1550 LET mat2(tellerl,teller2+DIMN(mat2,1)+1)=1 

1555 END IF 

1560 END FOR teller2 

1565 END FOR tellerl 

1570 END DEFine RedefineMatrix 

1575 REMark - 

1580 REMark 
1585 REMark 

1590 REMark - 

1595 REMark Deze procedure zet de iverse matrix ("mat2") in "matl". 

1600 REMark - 

1605 DEFine PROCedure ReDefineMatrixl(matl,mat2) 

1610 LOCal i,j 

1615 FOR i=0 TO DIMN(matl,l) 

1620 FOR j=0 TO DIMN(matl,2) 

1625 * matl(i,j)=mat2(i,j+DIMN(matl,1)+1) 

1630 END FOR j 

1635 END FOR i 

1640 END DEFine ReDefineMatrixl 

1645 REMark - 

1650 REMark 
1655 REMark 

1660 REMark - 

1665 REMark Deze procedure drukt de array "matrix" af. 

1670 REMark--- 

1675 DEFine PROCedure DRUKAF(matrix) 

1680 PRINT #3 

1685 FOR a=0 TO DIMN(matrix,1) 

1690 FOR b=0 TO DIMN(matrix,2) 

1695 PRINT_USING #3,•-####.###*,matrix(a,b)! 

1700 REMark Dit kommando vervangengen als U geen TOOLKIT II heeft 

1705 END FOR b 

1710 PRINT #3 

1715 END FOR a 

1720 PRINT #3 
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1725 

END DEFine DRUKAF 


1730 

REMark- -- _ _ 


1735 

REMark 


1740 

REMark 


1745 

REMark--- _ _ _ _ 


1750 

REMark Deze procedure bepaalt het product van 2 matrices 


1755 

REMark- -- 


1760 

DEFine PROCedure PROD(matrixl,matrix2,prodmatrix) 


1765 

IF NOT(DIMN(matrixl,2)=DIMN(matrix2,I)) THEN 


1770 

PRINT #0,"Error:Geen product mogelijk." 


1775 

ELSE 


1780 

IF NOT(DIMN(matrixl, 1)-DIMN(prodmatrix,1) AND 



DIMN(matrix2,2)=DIMN(prodmatrix,2)) THEN 


1785 

PRINT #0,"Error:Product matrix onjuist gedefineerd." 


1790 

ELSE 


1795 

FOR kolom=0 TO DIMN(prodmatrix,1) 


1800 

FOR ri j-0 TO DIMN(prodmatrix,2) 


1805 

prodmatrix(kolom,rij)=0 


1810 

END FOR rij 


1815 

END FOR kolom 


1820 

FOR kolom=0 TO DIMN(prodmatrix,1) 


1825 

FOR ri j-0 TO DIMN(prodmatrix,2) 


1830 

FOR teller-0 TO DIMN(matrixl,2) 


1835 

prodmatrix(kolom,rij)-prodmatrix(kolom,rij)+ 



matrixl(kolom,teller)*matrix2(teller,rij) 


1840 

END FOR teller 


1845 

END FOR rij 


1850 

END FOR kolom 


1855 

END IF 


1860 

END IF 


1865 

END DEFine PROD 


1870 

REMark 


1875 

REMark 


1880 

REMark 


1885 

RF.Marlr 


1890 

DIM voorbeeldl(3,3) :REMark Declareer enkele voorbeeld matrices 

1895 

DIM voorbeeld2(3,3) 


1900 

DIM voorbeeld3(3,3) 


1905 

DIM voorbeeld4(4,6) 


1910 

DIM voorbeeld5(6/8) 


1915 

DIM voorbeeld6(4,8) 


1920 

REMark 


1925 

REMark 


1930 

RESTORE 2225 


1935 

REMark Lees matrix "voorbeeldl" 

in 

1940 

FOR a=0 TO DIMN(voorbeeldl,1) 


1945 

FOR b=0 TO DIMN(voorbeeldl,2) 


1950 

READ voorbeeldl(a,b) 


1955 

END FOR b 


1960 

END FOR a 


1965 

REMark Lees matrix "voorbeeld4" 

in 

1970 

FOR a=0 TO DIMN(voorbeeld4,1) 


1975 

FOR b=0 TO DIMN(voorbeeld4,2) 


1980 

READ voorbeeld4(a,b) 


1985 

END FOR b 


1990 

END FOR a 


1995 

REMark Lees matrix "voorbeeld5" 

in 

2000 

FOR a=0 TO DIMN(voorbeeldS,1) 


2005 

FOR b=0 TO DIMN(voorbeeld5,2) 


2010 

READ voorbeeld5(a,b) 
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2015 END FOR b 
2020 END FOR a 

2025 REMark - 

2030 REMark 
2035 REMark 

2040 REMark - 

2045 OPEN #3,scr_512x216a0x0:CLS #3 :REMark Open uitvoer device (scherm) 
2050 REMark OPEN #3,serl :REMark Open uitvoer device (printer) 

2055 REMark - 

2060 PRINT #3,"Matrix 'voorbeeldl'" 

2065 DRUKAF voorbeeldl 

2070 INV voorbeeldl,voorbeeld2 

2075 PRINT #3 

2080 PRINT #3,"Matrix 'voorbeeld2', dit is de inverse van 'voorbeeldl'" 
2085 DRUKAF voorbeeld2 

2090 PROD voorbeeldl,voorbeeld2,voorbeeld3 
2095 PRINT #3 

2100 PRINT #3,"Matrix 'voorbeeld3', dit is het product van 'voorbeeldl'" 
2105 PRINT #3,"en de inverse hiervan die in 'voorbeeld2' staat" 

2110 DRUKAF voorbeeld3 

2115 INV Voorbeeld2,voorbeeld3 

2120 PRINT #3 

2125 PRINT #3,"Matrix 'voorbeeld3', die de inverse van 'voorbeeld2' is, " 
2130 PRINT #3,"maar omdat 'voorbeeld2 de Inverse van 'voorbeeldl' is, " 
2135 PRINT #3,"is dit de inverse van de inverse van 'voorbeeldl' en dus " 
2140 PRINT #3,"gelijk aan 'voorbeeldl' zelf." 

2145 DRUKAF voorbeeld3 
2150 PRINT #3 

2155 PRINT #3,"Matrix 'voorbeeld4'" 

2160 DRUKAF voorbeeld4 
2165 PRINT #3 

2170 PRINT #3,"Matrix ’voorbeeld5'" 

2175 DRUKAF voorbeeld5 

2180 PROD voorbeeld4,voorbeeld5,voorbeeld6 
2185 PRINT #3 

2190 PRINT #3,"Matrix 'voorbeeld6' met het produkt van 'voorbeeld4' en" 
2195 PRINT #3,"'voorbeeld5'" 

2200 DRUKAF voorbeeld6 

2205 REMark - 

2210 CLOSE #3 :REMark Sluit het uitvoer device 

2215 STOP 

2220 REMark - 

2225 DATA 10,-2,2,-1 :REMark data van "voorbeeldl" 

2230 DATA -2,42,-12,0 
2235 DATA 2,-12,118,-8 
2240 DATA -1,0,-8,9 

2245 REMark - 

2250 DATA 1,2,3,4,5 :REMark data van "voorbeeld4" 

2255 DATA 34,23,1,.4,.5 
2260 DATA 2,.4,1,2E-2,3 
2265 DATA IE-3,.3,.34,3E-3, 4 
2270 DATA 1,4,3,45,2 
2275 DATA 2,34,1,23,56 
2280 DATA 0,45,3,2,1 

2285 REMark - 

2290 DATA 1,2,3,4,5,6,7 :REMark data van "voorbeeld5" 

2295 DATA .3,3E-2,3E-3,.2,.8,.9,5 
2300 DATA 2,3,5,3,23,12,1 
2305 DATA 2,45,3,23,12,5,67 
2310 DATA 23,4,1,5,3,4,2 
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Dit zijn routines die vaker gebruikt worden. Ze 
worden geschreven als stukjes programma, op 
schijf of cartridge opgeslagen en wanneer nodig 
in een programma gebruikt. 

Meestal zijn dit routines die een algemene toe- 
pasbaarheid hebben. 


CMPI.B #0,DO 
BEQ get_a_key 


* als er geen toets is ingedrukt, scan 
dan opnieuw het toetsenbord 


Voorbeelden hiervan zijn sorteer al- 
gorithmes, speciale input en output 
routines etcetera. Een subroutine 
moet vaak een zogenaamd argu¬ 
ment mee krijgen. Stel dat we een 
subroutine hebben gemaakt die een 
letter op het scherm tovert. We kun- 
nen dan wel de routine aanroepen, 
maar hoe weet deze routine dan 
welke letter hij (zij) moet afdrukken? 
Dit kunnen we doorgeven via de 
registers. Aangezien we maar een 
beperkt aantal registers hebben kun¬ 
nen dit niet te veel parameters zijn. 
Een routine die een letter op het 
scherm zet, en het gebruik van deze 
routine kunt u zien in het onder- 
staande programma. Het gaat om 
een routine die steeds karakters 
afdrukt tot de gebruiker een 'Q' in- 
toetst. 

main__program 

BSR get_a_key 

* 

* kijk welke toets gebruiker heeft inge- 
toetst. 

* na terugkeer staat de asciicode van 
de toets in DO 


BSR print_key 


* druk een karakter af. De ascii 
waarde van het karakter in DO 


CMP 'Q',D0 


* wil de gebruiker stoppen? zo niet, 
spring dan weer terug. 


BNE main__program 
STOP 


* anders: stop de processor. 

* deze subroutine drukt een ascii ka¬ 
rakter af op het beeldscherm. In DO 
moet de waarde van het karakter 
staan 


print_key 

BSR druk_af 


* het eigenlijke afdrukken gebeurt in 
een speciale routine. 

* Die kijkt ook waar op het scherm het 
karakter moet verschijnen. Is dit ge¬ 
beurt, keer dan terug naar het pro¬ 
gramma dat je aanriep. 


RTS 


* deze subroutine scant het keyboard. 
Als er een toets is ingedrukt geeft hij 
de asciiwaarde van deze toets terug 
in DO. 


get_a_key 

BSR scan_keyboard 


* kijk of er een toets is ingedrukt. Als 
er geen toets is ingedrukt dan zal de 
routine scan_keyboard het getal 0 
teruggeven 


RTS 

END einde van het programma 

Allereerst een paar nieuwe mnemon¬ 
ics: STOPen RTS. STOP is de in¬ 
structs om de processor te laten 
stoppen. Dit is een extreem com¬ 
mando, de enige bruikbare manier 
om nog verder te gaan is eeh RE¬ 
SET (tenzij U speciale voorzorgs- 
maatregelen neemt, maar dat is al- 
leen voor de ver gevorderde 
gebruiker). De instructs RTS (ReTurn 
from Subroutine) zorgt ervoor dat 
het programma weer terugkeert naar 
de plaats waar de subroutine aan- 
roep (BSR of JSR) plaats vond. De 
daarop volgende instructie zal nu 
worden uitgevoerd. 

Het mechanisme dat hierachter 
steekt is eenvoudig, maar o zo door- 
dacht! Als de processor de instructie 
BSR tegenkomt, zet hij het adres van 
de instructie die direct voIgt op BSR 
op de stack. De 'stack' is een stuk 
geheugen. Het wordt aangewezen 
door de StackPointer, A7. Dit register 
heeft U al eerder gezien bij de pro¬ 
cessor beschrijving. Een getal wordt 
'op stack' gezet door de inhoud van 
A7 met het juiste aantal bytes te ver- 
lagen, waarna het te verplaatsen ge¬ 
tal naar de geheugenplaatsen waar 
A7 naar wijst wordt verzet. Sla er 
even een boek met plaatjes op na als 
U dit niet direct kan volgen. 

Een adres is altijd vier bytes lang 
(32 bits). A7 wordt dus eerst bijge- 
werkt' zodat hij naar een volgende 
locatie op de stack wijst. Dit bijwerken 
houdt in dat de inhoud van A7 met 4 
wordt verlaagd voor een Long word 
(een adres is altijd een longword, 
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maar niets verhindert U om ook ge- 
gevens met andere afmetingen op 
stack te zetten). 

Op deze wijze kunnen we steeds 
weer getallen op stack zetten. De 
stack groeit omlaag. Datwil zeggen 
dat hoe meer getallen er op stack 
staan, hoe lager A7 wijst. U kunt zelf 
ook dingen op stack zetten (alhoe- 
wel dit dodelijk is voor uw pro- 
gramma’s als U vergissingen begaat) 
met de instructie 

MOVE.L ...,-(A7) 

Dit betekent dat de stackpointer ver- 
laagd word (daarom staat de ook 
voor de instructie), en de 4 bytes 
op de geheugenplaatsen (A7) tot 4 
(A7) komen te staan. '(A7)' betekent 
waar A7 naar wijst' en ’4(A7)' be¬ 
tekent Vier geheugen plaatsen ho- 
ger dan waar A7 naar wijst'. 

Bevat A7 bijvoorbeeld #100, dan be¬ 
tekent 

MOVE.L D0,-(A7) 

dat de vier bytes lange inhoud 
van DO naar de geheugenplaat¬ 


sen 97,98,99 en 100 geschreven 
moot worden, waarna A7 *96' bevat. 
Het terughalen van dit long word naar 
DO gaat door 

MOVE.L (A7)+,D0 

oftewel: haal de top van stack at, en 
zet die in DO. 

Verhoog daarna A7 weer met 4. 

Op het gebruik van de stack komen 
we nog uitgebreid terug als we het in 
een andere context gaan hebben 
over het doorgeven van gegevens 
tussen subroutines. 

Terug naar ons voorbeeld. U ziet dat 
we gebruik maken van veel commen- 
taar. Dit is als het zinnig commen- 
taar is, zeer belangrijk. Omdat ma- 
chinetaal toch moeilijk te doorgronden 
is, zeker als U de wat geavanceerder 
truuks onder de knie begint te krijgen 
en op slinkse wijze snelheidswinst 
probeert te krijgen, of met gemene 
truuks de laatste bits uit uw program- 
ma probeert te werken om het zo 
compact mogelijk te laten zijn. Verd- 
er gebruik ik zelfs voor de meest 
simpele dingen een subroutine. 

Dit heeft tot gevolg dat later, als er 


iets verandert aan bijvoorbeeld het 
toetsenbord, alleen deze routine 
hoeft te worden aangepast. Aan het 
hoofdprogramma hoef ik niets te 
veranderen. De subroutine levert - 
hoe hij dan ook moge werken- altijd 
de ingedrukte toets als ascii waarde 
in DO af. 

Hier komt ook een ander voordeel 
naar boven. Doordat er precies is 
gedefinierd hoe een bepaalde routine 
zijn gegevens aangeleverd wil krijgen, 
en hoe hij zijn resultaten terug 
geeft, hoeven we niets te weten van 
het interne van de routine. 

Hij werkt, en daarmee weten wij ge- 
noeg. Het enige wat ik voor de af- 
druk-routine hoef te weten, is dat hij 
zijn karakter in DO wil hebben aange¬ 
leverd. Hoe de routine weet waar 
hij het karakter op het scherm zetten 
moet, hoef ik niet te weten. Het wordt 
afgedrukt, en daarmee uit. 


Ard Jonker 
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Te koop aangeboden: 

QL JS../.225,-- 

QEP II Epromprogrammer 

Fred v.d. Neut 
01807-10553 


Te koop gevraagd: 

Geheugenuitbreiding 512 K, 
Trumpcard o.i.d. 

Laurens 

Tel. 05495 -1864 
Na 18.00 uur 


Te Koop aangeboden: 

QL512(JS) met monitor(Philps 
BM 7552 g/w, 25 cartridges met 
software, en 2 eproms met houd 
er; prijs / 600,-- 

Eirk Hoogcarspel 
Tel 010-415 70 97 


Te koop aangeboden: 

Ferguson Monochrome monitor, 
kleur amber, inclusief QL verbin- 
dingskabel, nog geen jaar oud 
Prijs nader overeen te komen. 

T. Blom 
079-515427 


Te koop aangeboden: 

QL JS 384 KB 

Compleet met Sandy Super Q 
Board, Monitor monochrome, 
real time clock, TEAC disk-drive 
met voeding dit alles ingebouwd 
in een IBM-kast, met veel 
software op diskettes compleet 
met manuals./.900,- 

Wil Langezaal 
Tel 03402 - 64026 


Te koop aangebdoen: 

IBM toetsenborden NIEUW 
101 toetsen./..249,- 

PC XT kasten NIEUW 

voor inbouw van de QL..../ 159,- 

Klaas Zeven 
Tel. 05910 - 24087 
Alleen ma.di.do middag 
van 14.00 -17.00 uur. 


Te koop aangeboden: 

QL JM 128 K, CUB 653 kleuren- 
monitor, 3.5 inch Sanyo dubbel- 
drive (720 KB), M.P. diskinterface 
met geradts ROM, Printer Brother 
HR5 (RS 232), Miracle Modem, 
Miracle Centronics interface, 
TTToolkit (ROM), 45 cartridges, 

11 boeken, veel software o.a. 
PSION CHESS en ADDERSOFT 
Assembler. 

Totaal../..1„500,~ 

Tel. 070 - 270376 
(na 18.00 uur) 


Te koop aangeboden 

QL-JS versie + 640 K geheugen¬ 
uitbreiding + Diskinterface + 2 
disk drives een 51/4 en een 31/2 
inch + erg veel software +erg veel 
beokwerken + toolkit II en ICE op 
eprom + 50 cartridges alle in 
100% staat prijs./.1250,~ 

P.M.P. Moonen 
Tel. 04166-2617 


ANTWOORD 

Op de vraag wie de auteur was 
van het artikel over het PC- 
toetsenbord is het antwoord 

Frank Troost 
Tel. 01672 - 2584 


Te koop aangeboden: 

Seikosha SP1000 
Serieel / 300,- 

A.G. Vermeulen 
Goudenregenlaan 12 
Castricum 
Tel. 02518 - 58723 


ANTWOORD 

Als reactie op de vraag van Ed 
Kats (Quasar 35,biz 721) inzake 
sorteren in Archive nog het vol- 
gende. 

Zijn probleem met een sleutelveld 
van 10 cijfers is geen probleem, 
wanneer je die 10 cijfers op de 
een of andere manier in twee vel- 
den onder brengt. 

Archive kent namelijk het gekop- 
peld sorteren op twee (maximaal 
zelfs vier) velden van ten hoogste 
8 cijfers elk.Je kunt dus tot 32 cij¬ 
fers terecht. 

De opdracht wordt dan b.v. OR¬ 
DER numl;a,num2;a (voorop- 
klimmende rangschikking naar de 
inhoud van veld numl, gekoppeld 
aan veld num2). 


W.P. van Leening 
Pansierstraat 44 
2584EK Scheveningen 
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